perm filename PNEW.SAI[PNT,HE]5 blob sn#506104 filedate 1980-02-29 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00003 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	ENTRY
C00003 00003	PROCEDURE XERROR
C00011 ENDMK
CāŠ—;
ENTRY;
BEGIN "PNEW"
COMMENT routines which are not available in AL;
DEFINE $PNEW=TRUE,$ALTER_EGO=TRUE;
REQUIRE "HEADER.SAI" SOURCE_FILE;

PROCEDURE XERROR;
	ERROR(TOKEN," is a dummy statement, use some other word");

INTERNAL PROCEDURE FOOCALL(INTEGER I);
	CASE I OF
	BEGIN
	[1]	XERROR;
	ELSE	XERROR
	END;

END "PNEW"